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-.K-miT rvoJ-mr^J^X 


^"v-o h .Th' k H!'lk l r'.| I K!l,^ 


ifolgmuglich. T].;: /(!,■!:: i rap 


irr™r-ra 
















IB'.rfJB If 


'".jm^'Llor -Version urnge- 
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L^™" »"££* "h™. D * 
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Kaputnik 
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K;i|iiiiink im ■.;>■ Spielpro- wirdesda 



Progja 


', to 


ems Irjiari- 
iiilWn Jt, 



Fassadenkletterer " ,Snden « e,rntf ' 

fliegende Luflb 
Fur den TI 99/4A gel berithn od( 



Hindernislauf I co.**^^ ,,«„*< *■ »^ « «• *« g** «™^-m-*« 

Mil den: Dragon 32 L«chK xine KwnNtriK tei uns rr, ... „, „ „„rti n B,.i.c.^ 

^rtHmLlkAcn WirsuctanO™- TOTOIIgh the Wall J™ 

Bildschirmraudes em rote! Ra««ll-\f ««l™li*> Dic Aufsabc Lie: iSicscm Pro- lich .:!:: itlilif-oibi 

'.Ji:.:.i:i uilgnht i-;r os .'in der D«tU"lTj.CHHJItT , -.-..-.. i-. i. . I - . - , . -, nv ■in-- einem Maschin* 



mgibteswenig befinden 



J^^iS^t sSS^SH I ^ 






lyiiyiiiiiiiiimnniT— iMBi 
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Reaktion 


FMsAt, 


ri Computer 


da.Spnl^-rstril.wcrfa.Da- 


Ein Tl-Programm 




































hiiitn K»v;l. wkann Roily- 


Prngramm selhst wird mit RUN 






dolly benachbarte I'cldci Lrei- 


lll!!;„!.,rl 1 -[. u ,MJlif!l,ullkL.r- 


mtippen.Daiffniysniniermi!- 








telt die Reaklimweii ...i<f dM 










«5SS*»S!S,™ 


"-*-" 


■ - noch a - A ^*™^ 


zeitan.Die.Highscnre-Fiink- 


Eikf: ^ii ^Lkiri|!L L n. li;u .knui 
n-n ix.™ Rullyikrll) ctT'oIhI 


||§SE5 


^mT<££ 


H3S 




Erreicht Rollydnlly wieder 






































. v. : ;; :; ;: 


ahhangt Uider verhramht 


^*2 w *** 


'..'i:niiu'.!-rir,^riirainl7 


I- II llydolly audi bis 


R..lllydo|l V ,-, 1 JchSi!LlE. i t(.ff.lJEI 








Sie finden di 


mimm 


tings fur 




Kapulnik 




ab Sell 


e35 


HiDdemislau 








Bach-Mclod 


e{VC20) 


ah Sei 


c34 


Fassadenkle 




ab Sei 


e67 


Through Ihe 








Rollydolly 




ab Sei 


e57 




cn«:«) 






Reakiion 




ab Sei 


cW 
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Colour Genie 




Kupierschutz 




c PrujlMriirm: vi.i uill^fui;- L6864.1U0 : POKF 


■JSS 


en. Doch cine! hat iicli ge- ,pcrrt die >BREA 
t: den pcrfeklcn Kupier- I'OKI- KW.inpir 


£5£ 



ic-Programm als MC-Hk 



> KST< 'fasten. Urn i 



In Basic gjbl imtiiiieo l\*re. 






Tips + Tricks 



Poke- und Peekadressen KaKK VC20 

beim"n99/4A Wit "t _ ™ c SchsOYnrBreiili 



CALL PEEKI-31SS 




l->i:i!KZu^lls7iLlimsss2?5. 






AJB) 


l-.ri'ir.-.z'.ieiiiiiabrianeige 


DENKKN m JEDOCH 


CALL PEEK(-2B67 


A> 


\=%d.h. Sp.Ti'h Synthesizer 


ORAUM!!! 


call LOAD(-3nse,:32> 


SchalletindenMuLticciloi-- 












CALL LOAD|-317J 




ur..i:'i, .'!.■.! [Yiii;,iL'li'il|]'.in^- 


** 














lcetDbkcttcn-Bctiieb^rotciD 


■ ■ ■ : ■. .'■•! ■ ■ ;-.- 


CALL LOAD[-3lfiK 


,2S5) 


Kor^.tn' HVl£al ' fEl,ere '' 


negativen Zahlen ebenfalls ab- 
Qeninaet wird (INT(-3.5) ist -4) . 


CALL LOAD(-31S0 


.036) 


1 1 ii l.iPIEatlfalhMl 




CALL LOAD(-J1BO 


.0) 


Se'tp'cTN'QUrrauBer 


TT-99/4A 



CAI.I LOAD (-3 193 1,0) 

CALL POKE V( 1784 ,A,B) isIdi6SdrrienstlD6gBBl«*r* Im Disk Manager Modul isi 

wandlungDezimalinHex. cineOption zum Diskctlen 

wenngilt: ^ schmz eingeliant. nursielii die 

A=INT(Z/256) " Ci t'ZZ: , ;,:'.' M !■ , ; 'l! ■ ':,: " n : , : 'I 



CALL CHARPATI1 SS , , 

HEXS=SEGS(SS.1,4) (so lanpe ' die RVS ON-T 

V I ! i -i t: i : ■■■ ■ " : .v: ■.-.. ■■.- : ■ :.. ■ !.. ■■■.•!■ :,::^:\-:< :;i 
:. KHfJd 9B-4fe CR3&XM 





SiMficlirrHdlen 132 mid 133. 


Frogruunscbuli 


Da der Compuler die Varia- 


















werden kannen. SYSTEM RE- 


mes zu .stiireii. Allerdiriss.irflle 


















"■•';i'i'»"'»»«' 


' - ■■■.■■■■ 



Spectrum 



issdiallen der BRLAKTa- Filil[ man die V: n a Llama 

.MiPOKE 5377-1.64 Dieser Code «» RETURN (EOL).so 

der eme Variable ste lit. in RANDOMIZE USR 3638 

adit modioli, R A**DOMIZEUSR:M35 losdll den Sercen (ROM- 



indem der PLEK aus Adrcsse dutch; I 
Adiessc. 131 hinzugczlhll wird. (132) + 
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ZX SPECTRUM 



DieSprachausgabe-Einheit " " " „° „ R "; ."i,™/ 

»»MICROSPEECH« [ FC^ 



W« slch blsker <lnrti.tr gtargtn Jim, daR dtt /A S| 



ungKffe 







Joystick- ! 'r!ml,^un!r L i,*r,4' : -j i - 

Steuerung mil basic eri.-^r ^-^.u-n- 

ttehei.de Lisi,ii S Wean 
dem Kemp- Kcrapsiun-Interface ar 

^ ■»•._• schlossen d^r , knnn iHiin jiuf i 

ston-lntenace »,u,cnim, n L wi^kd; 



e>PEP 




JOYSTICK. 


STEUERUNG 






KENP5T0N 


-INTERFRCE 


1 IF 


W 


31=1 THEN 


PRINT "REC 


HTS" 








2 IF 


IN 


31=2 THEN 


PRINT "LIN 


KS" 








3 IF 


IN 


31=4 THEN 


PRINT "RUN 


TER" 








4 IF 
H" 

5 IF 


IN 


31=8 THEN 


PRINT "HOC 


IN 


31=16 THEN 


PRINT "FE 


UER" 








6 IF 


IN 


31=5 THEN 


PRINT "REC 


HTS'RUNTER 






7 IF 


IN 


31=6 THEN 


PRINT "LIN 


K.S.<'RUNTER" 






8 IF 


IN 


31=9 THEN 


PRINT "REC 


HT3/HQCH" 






3 IF 


IN 


31=10 THEM 


PRINT "LI 


NKS/HOCH" 






16 GO 


IU 


1 
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Promodo 



-=4iee; let t-ise 



- f.r.p B =4 37Cl lil.L HL*: = 4.;C<' i 



i LET il=a- LET h 











































GO T 


4fl 




















■ 




b*= 


»" ■ 


Grj TO 


5 LET a* 


























•* 


LET 


1 *= 


•"■ 


CO TO 


5? 


^1 


LET 


b*> 


*" 










ULKMkOPF 














sa 


PRIM 
LET 


FIT 


*l-b 


i INK 


3, BRIG 

,20 
















TO 5000 


62 


Pft!M 




HI 1 


6;PjH 


I.17it 


65 


IF >t 


=■»* 


THEN 


LET 


Ml> LE 





























PRINT 


'■ iiMM MM) ■' 


























4:08 


PRINT 


'■■ .■' 


4115 


PRINT 










4150 


■ : 


m ■" 












1 


LET c= 






&•?■ LET »t*-=4300. LET t-49 


















































':-::' 


r-RiH? 


■ ■ ■ ■ ■ ■" 








*','r- 




































■;v;.; 


'■>KihJ-i 


■• i^ •■" 




. 










4300 


ET M 


8' LET b=lH LET c-» 










4328 


. ■ 


1 >!.>J HMHIM^ 



5 IF at* 114 THEN LET P 
tp .1,-58. LET att-i<a' 

-an -HEM GO VO fclOB 



i IHLM GO TO 45 

110 IF z<c,d»-9 OS - 
EN LET d-d+SGN Kc-,a 

123 LET c=c-z<t,d) 

.. : ' lHBYRINTHE 
3938 REM 
3999 REM 1 



ZX SPECTRUM 



4360 RETURN 


ease if b<bi then let E c»i,bi3= 


4369 REM 4 


-10. RETIJSli 


4370 LET a=l: LET b-21 • LET =•*• 


F.033 REM 1 LHEYRINTH CE3CHRFT 


LET d=16. LET a«=55' LET adi-=40 


6100 RES - :'-!: 9900 :■■--• .-.= : f j 


as: let t=eee 


i READ !• BEEP .2.J' NEXT ti. BEE 

eiia'poR n=t to a step -2^ let p 

=P»2- PRIN1 Kl :m :.•..! .h: j. i:> 




■ ■ ■ ■" 


439B FOR n»l TO 2 


Nj" "' BEEF .02, N/18' NEXT N 


4400 PRINT "■ ■ ■ ■i^H'H ■ ■ 


6 120 GO TO 20 


■ ■•■ ■ ■•■■ ■■■ ■ m* m ■>■ 


S99S REM GRflFIKSElCHEN & 


■■ ■ ■ ■■•■ ■■■■1 B M ■ 


'■ImE.G-ILNEIIFJIE 


M> •■UK ■ ■ ■■ M '■* ■ 




^B ^M MM ■ ■ i^M M ■ 


153i FOR b=0 TO 7- RERt> c = POKE 


M ■ ■ ■■■■ ■ ■■■ • ■ ■ W 


USft CHRS i-3>+b.-c NEXT b: NEXT a 


■ ■ ■■■■■ H ■ ■ iHB ■■■ 






,: POkE a,c NEXT s. ■ RETURN 






■ ■ ■ ■ ■" 


.126,60 


441 > NEXT n 






126.60 






4999 REM SPIELENDE 




5B0e LET x-B 


90S0 DfllFi 6L-, 126, i:>;, 2^3, 240,248 


5010 PRINT AT cdi BRIGHT U" " 


,126.60 


5020 IF Kc.d)>9 OR z<c,d)<-9 TH 




EN LET d=d+SGN z(c,d>. GO TO SB 




40 


,126.68 


3B30 LET C"C-z<c.d> 




3B4B IF al-e P.ND bl=d THEN SO T 


,118.52 


5660 


9090 DRTfi ti.ft. i9?.2"9. 251-255.1 


504S LET x=*-l: BEEP .02.-30 


26.60 


5050 GO TO 5010 


9100 OfiTfi 60. Ii-;, ill., 223,247,227 


5060 LET JkJKl TO LEU J»-l> 




S07B IF **»•" THEN 60 TO 5100 




5B30 LET adr=adr*> GO TO 20 




5100 FOR N.0 TO 21 




5110 PRINT FIT ii, Hi PRPER INT CR 




ND*3>j INK 9l" GRME OVER "l 




5120 NEXT n 




5200 FOR n-1 TO 100: NEXT fci CLS 


3900 WiTh 6,2.4.0,2,4.5, 7, 12, 16. 


3209 REM MENU 


* 3993'CLEHH " SHVt "FKiLiOMtl" LINE 


5210 PRINT BT 6,6j INVERSE 1 j "' 1 " 


1. PRUSE 50." GO TO 9999. 


i INVERSE 0i" SPIELEN">RT 9,6i 
INVERSE 1>"2"; INVERSE Bi* TR 






ftlHINC'ifiT 12. Bi INVERSE li"3"j 




INVERSE 0;" STOP " 




5220 INPUT a 


Fiir den ZX Spectrum 


5238 IF aXl OR a>4 THEN GO TO 5 




228 




5240 IF a-1 THEN GO TO 10 




3250 IF a=2 THEN GO TO 5380 




5260 IF a=3 THEN STOP 




530S INPUT "WELCHES BILL) (1.2.3, 


lift did. Zeitefreiialshffekt 


5310 IF a<l OR a>4 THEN GO TO 3 

see 


IflOLTTmiN^GOTOlO JZTc!. dk BOHfet&rt* «* 


5320 IF a=l THEN LET aar=4B00 




5325 IF a=2 THEN LET adr-=4170 


gdb: Tasten: 1,0. A. Caps Shift 


5.J3A IF 1=3 THEM LET jdr=4300 








5.J4U LET a.iri^J L,U JO 13_ . 


cyan: listen: 2,W,S,Z 


■H(i tnv;w~i~'~rrj.t_ 2-;i4. i'ii- r 




HPCR ii_ :ili_: !■ BRIGHT i= CLS ' B 


magenta: Tasten: 3.E.D.X 


5999 RE" WURMRICHTUNC SPEICHERN 




•,iill; If i- i\ >AV- LET z- i::Ol = 




Ii RETURN 




WIS if t)*l THEN LET KaUblS- 


Taalen In. 2: gelb u.cyan-griiii 






■sei^iin if bit.l THEN LET z<al.bl)= 




IB. RETURN 
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Die rich tigc Verbindiing 
fiir Dire Spectrum-Peripherie 
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ZX SPECTRUM 



Spectrum-Extender 




f.I 1 -Befchl fiir 
den ZX Spectrum 

48 K Version 
RUN gestanet. Daoach kann 






J REN fc**^************:*:*:**:** 

J REM * GET 4SK VERSION* 

i REM * * 1534 by W.HHSECKE * 

) REM * SCHLESIERSTR. 38 * 

5 REM * 6793 I IMBURGERHOF * 

) REM *#*#*#*****:»:**£**:*»:**** 

i REM 

S CLERR 49939 

J FOR i=l TO 21 

I RERD w 

1 POKE i+49999,w 

1 NEXT i 

I DFiTR 53,8,92,6,13,144 

I DflTf! 202,80,195,38,3,92 

I DRTFt 79,6,0,62,13 

I DRTFl 59,8,92,291 

I REM FUJFRUF 

I PRINT CHRS USR 50000 



ZX SPECTRUM a 



Spectalk 

aiZX Spectrum 4BK 




cure bcstimmic Fun* ii..ii ilwu- 


Jew tt^S^H^ie M- B^^™ " 


rufcn, uewegen Si? den hell- 




fangsadrcssc der Sprache (darf 7. LOADenr Mil tlicscr Op 








Ji; l-.m^i 1 in [H!r ? (..iMnM.ipiMl ^sp-i. :i.-m,: Sit.""!!'. 1 ciimt'ia 


tln.ck.in ib nil ENTER. 


3202.4) cingcgcbcn. den. 



Spectalk 



■HE 5999 

100 REM Menus 

101 BRIGHT 1 i PHPER i 
■■ CLS ■ LET x=3- LET 3 =e 

110 PRINT PIT 1,12; INK 7; "SPECT 
RLK" 

128 INK 6- PRINT RT 3.. 2; "SPrach 
e aufnehmen^RT 5.2. "Sprache abs 
Pielen";RT 7.2; "Laefige-'SPeicher-P 
Utz ae-ri.ier-.V;flT 9,2; "HbsP iel3es 
chwindi9keit aendei-v.";RT 11,2; "S 
hVEm ■:. fuer eiSerie Programme >" ; HT 

13.2;"SRVEn <fuer SPECTRLK>";RT 

15.2;"L0RDen";RT 17,2; "flvileitun 
9 zu SPECTRLK" 

133 PRINT INK 2;RT 20,2;"uritt 
en by;";RT 19. 14; "Mario SchUsin 
9et-";RT 20, 14; ,, Schul=.tr.44";RT 2 
1,14; "8992 Haa^Obb. ° 

140 PRINT AT x,s; INK 5; FLRSH 

145 FOR c=l TO 7 

149 PRUSE 4 

159 IF INKEYS="6" THEN PRINT fl 
T x,u;" "■■ LET x=x+2> IF x>17 TjH 
EN LET x=17 

155 PRINT RT x.y; INK 5; FLRSH 
1;": 



.59 PRUSE ' 



160 IF INKEYS="7" THEN PRINT Fl 
T x.y;" "■ LET x=x-2 ■ IF x<3 THE 
N LET x=3 

165 PRINT RT x,y, INK 5; FLASH 
I)">" 

170 LET i*=INKEY* 

130 IF iS=CHR* 13 THEN GO TO < 
500 RND wVMiWI AND x=5Hn56 
RND x=?)H2000 AND x=9 >-k 2503 
RND x=il)+C3000 RND ^I.3.h- ^iin 
AND x=15>-K4000 RND x=17) 

185 PRINT RT 1,12; INK c, "SPECT 
RLK" 

190 NEXT =■■ GO TO 145 

599 REM SPrache aufnehmen 

519 CLS = PRINT RT 1,7; INK 5; 
FLRSH 1;" SPrache aufnehmen" 

520 PRINT RT 3,0; "Druecken Sie 
bitte die Taste "ENTER-. Dana 
ch schalten Si^ IhrTontoaTid9*rai*t 

530'rRNDOMIZE USR 32855 

540 PRUSE 0; IF INKEY*=CHR* 13 

THEN PRINT RT 7,0; FLRSH l;"SPr- 

ache wird au-fQenoinmeri" ■ 

E USR 32763' GO TO 560 

559 GO TO 540 

560 PRINT RT 9,0; "Die fluf nahn.e 
ist nun beendet. Dr-ueckeri Sie 
-ENTER", urn ins Me-nue z>jit-ij.eg*::zi.i 



ZX SPECTRUM 



579 PHU5E 0i IF INKEYS=CHRS 13 
THEN GO TO 190 

9 GO TO 570 
1600 REM SPrache absPielen 

1019 CLS ■ PRINT FIT 1,7; INK 5; 
FLASH l;-SPr*Ch« abs-Pielen" 

1020 PRINT RT S^i'^itte dru.ecke 
n Sie "ENTER", UN die Hufnahme 

1039 PAUSE &■■ IF INKEY*=CHR* 13 
THEN RANDOMIZE U3R 32316^ GO TO 

1050 

1040 GO TO 1030 

1850 PRINT fn e.0;"Fer-ti9! Hit ~ 
ENTER" kommen Sie zui-u.eck ins M 

1060'pAUSE 0, IF INKEY*=CHRS 13 

THEN GO TO 100 

1070 GO TO 1060 

1500 REM Aenderun9 won Laen9e<- 

r ;.P e i --her-P 1 atz 

ISia CLS ; PRINT AT 1,2; INK 5; 

FLASH l;"Laen9e.-$Teicr 1 er-PUtz ae 

1520 PRINT FIT 3*e*"l>M sifid die 

alten Werte ! " 

1530 PRINT AT 5,S;"Start> " ; PEE 

K. 32769+25<— i 

1535 PRINT RT 7.0; "Laen9e: ";PEE 

. ;;■:■- :■■■:.■: ■■■■■, :■: ■■■: ■■■ 

1540 PRINT AT 9,0;"Geben Sie die 

ij.en Werte eim" 
1550 PRINT FIT 1 1 . 0i "Start ' "; 
1560 INPUT "Start bei fldresse Ui 
ind. 33990> ";a 
1570 IF a<33000 THEN LET a=3390 

PRINT a 

1590 LET x=INT <a^256J 

1600 LET J=a-Cx*256> 

1610 POKE 32769, a: POKE 32778, x= 
POKE 32817. a' POKE 32818, x< POK 

E 32856, a < POKE 32857,x 

1620 PRINT FIT 13,0; "Laen9e: "; 

1630 INPUT "Laen9e in Byte (bis 

32024) ";a 

1640 IF a>32024 THEN LET t-3202 

4 

1650 LET x=INT <a/256> 

1660 LET a=.a-(x#256> 

1678 FOKE 32772, a ^ POKE 32773 ■ ;t ; 
POKE 32820. V2-- FOKE 32821, y./Z-- 
POKE 32859, y; POKE 32360,* 

1680 PRINT 3 

1690 PRINT AT 15,0; "Ein9abe been 

det! Gehen Sie wit "ENTER" ins 

Menue zurueck. " 

1700 PAUSE 9 = IF INKEYMCHR* 13 

THEN GO TO 100 

1710 GO TO 1700 



2000 REN Renderuri9 der Geschwi 

ndi9keit 

2010 CLS ■■ PRINT ' INK 5; FLASH 1 

j AT l,l."RbsPiel9esdwindi9keit 

under n " 

2020 PRINT RT 3,9; "Das war die b 

i?.heri9e Geschwin- di9keit;" 

2030 PRINT RT 6, 0; "Geschwindiske 

it= ";PEEK 32325 

2048 PRINT AT 3,0;"Geben Sie nun 

2045 PRINT AT 10, 0; "Gescr,windi9k 

2058 INPUT "neue Geschwindiskeit 

< 1-255 > ",9 
2060 IF 9>2SS THEN LET 9=255 
2O70 PRINT 9 

208O POKE 32829.9: poke 32341.9 
2890 FRINT RT 12,0; "Die Ein9ibe 

at beendet. tlit "ENTER" 



i Mem 



!■■: liehe . 



2520 PRINT RT 3.9;"Wenn Sie -ENT- 
ER" drtiecken wet-denzwe i nasch i iv 
■ricode-Prciyrj.Fnme ab— 3esPsichert. 
Eines fij.er die fin- £teuerun9 der 

SPrache ijnd eines. r>ut der SPr 
be selbst. Mit RRND0PHZE 

HSR 32816 wird di*R:.ifnahme der 
SPracbe ab9esPielt. " 
2530 PRINT RT 12.8; "Das erste Pr 
o9rsn.ru uird 9eSRVEd" 
5540 SAVE "SPectalkl'TODE 32768. 
182 

2550 PRINT RT 14. O; "Ferti9 ! "> RT 
l£,8;"0as zweite Pro9ramrii wird 9 
eSAVEd" 

..-.■■:■ "SP«cta\l!E"CODE (.PEEK 

3Z769+256*PEEK 32770 >.' PEEK 1:277 
2+256*PEEK 32773 > 
2570 PRINT AT 18. 0; "Ferti9 ! 

Druecken Sie 

ruin "ENTER", y.ra weiterzumach 

25S0 IF IHKEYS=CHR* 13 THEN GO 

TO 2600 

2590 GO TO 2580 

2600 CLS i PRINT AT 1,3; INK 5; 

FLASH l,"SFiVEn ( f u.er ei9ene Pro9 
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:. Sollte ein TRPE LORDING 
ERROR erfol9en, star-ten Sie d 

as Pi-o9ramm uieJer mit GOTO 168 
u.-frd SRVEn Sie die beiden Mascbi 
rieno;de-Pro9raMFiie nocheiTinal. S 

".en Sie die Kas- sette nun zur- 

2620'pRINT RT 12,0;"Das 1. Pro9r 

> wird neberPrneft" 
2630 VERIFY ""CODE 

2640 PRINT RT 14,6; "Das 1. Pr-osr- 

» 9eht . " 
265(3 PRINT RT 16, 0; "Das 2. Pro9r 

i siird ij.eber-Pnj.eft" 
2660 VERIFY ""CODE 
2676 PRINT AT 18,9; "Das 2. Pl~09r 

amm 9eht. " 

26S0 PRINT ftT 20,0; "-ENTER- brin 

9t Sie in das Menus." 

2690 IF INKEY*=CHR* 13 THEN GO 

TO 100 

2799 GO TO 2630 

iW2 PEN SAVE-.-. (SPECTflLK) 

fflia CIS : PRINT RT 1-6; INK 5; 

FLRSH l; 1 ' SRVEn < f uer SPECTRLKJ" 

3029 PRINT RT 3,0;"Es wird nun e 
in Hasdhinenct'de Prosr-iram u,b9e 
=.f- e i chert , das die auf9enoMroene 
SPrache enthaelt. Dieses kann n 

in Ver-bindu.T9 
verwETidet uerden. 

wessen Sie die 
Option uaehlen. " 

3030 PRINT RT 12,1 
r-d nun 9e3RVEd" 

;:949 3AVE "SPectalk2"C0DE 33906, 

32924 

3050 PRINT RT 14,9; "Ferti9! Nun 

wii-d es noth ueber- Pro. eft. SPul 

en Sie die Kassette rrurueck und 

laesen Sie sie laufen. " 

3969 VERIFY ""CODE 

3079 PRINT RT lS.e.^'Es 9eht< Urn 

ins Menus zurueck- zukehren "EN 

TER- drueken." 

19 IF INKEY$=CHRS 13 THEN GO 
109 

|0 GO TO 3080 
|0 REM LOPiDen 

3510 CLS ■■ PRINT RT l,9i INK 5; 

FLASH l;"SPrache LOADen" 

3520 PRINT RT 3.9;"Le9en Sie die 
'assette mit 'ier ab9esPeichert 
i SPrache ein und drue'cken Sie 

"ENTER-." 

3530 PRINT RT 8 . 0; "Prc.9ra.MM wird 
9e laden" 

3540 LORD "SPectalk2 ,, CQ0E 



wit SPECTRLK 
Urn es auch fu 

"Das Pro9r-am[ii 



3550 PRINT RT 10.0; "Pr-oar-amM ist 
9e laden! " 

3560 PRINT RT 12,0: "Hit "ENTER" 

ins Menus zu.r-ueck." 

3579 PRU3E 9: IF INKEY*=CHRS 13 
THEN GO TO 166 
3530 GO TO 357S 

4009 REM Anleitun9 

4010 CLS : INK 5' CLS 

4020 PRINT RT 0,11; FLASH 1,"RNL 
EITUNG"' PRINT 

4030 PRINT "Mit Hilfe dieses Pre 
grammes ist es moe9lich, auf dem 

ZX SPectru.ms* nthe tij-..-he. SPrache 

zu er-zeu- Sen - und das ohxu) H 
a.rduare Er-ijeiterun9en ! Selbs 
tverstaend- Uch koennen Sie auc 
h Geraeuscheaufnehmen. Nehmen Si 
e auf einem Tonband einen kurzen 

Text auf (die Laen9e k osi-men 
Sie veraen™ dem - siehe Menue) 
u.nd uaehlsn Sie den ersten Punkt 

des Menues an. Der Computer lie 
st dann die SPrache ein. Ist das 

Er9ebnis nicht bef riedi9end, 
aendei-n die Hoehen/Baesse-'Lau.tst 
aerke an demRecorder. Riles weit 
ere entneh- men Sie bitte den Er 
k.laeruri9en bei den einzelneTi Me 
Mue-Oftionen VIEL SPflSS BE1M 2 
UHOEREM ! 

4040 PPUSE 9^ IF INKEYS=CHR* 13 
THEN GO TO 100 
4850 GO TO 4949 
S060 REM Maschinencode 
6001 FOR ri=32?63 TO 32871 
6010 REHD &■■ POKE |.,,s= NEXT nt< R 
ETURN 

6020 DATA 33,0,250,17,0,4,243,21 
3 . 254 ■ 254 . 255 . 40 , 250 , 52 , 2 19 ■ 254 . 
254 , 255, 40 , 12 , 52 , 24 , 247 , 2 1 3 . 254 , 
254 ■ 255, 32, 1 1 . 52 ■ 24 . 247, 35. 27, 12 
2. 179.33,241,251 .201 
603P DRTR 35,27,122.179.32,224.2 
51,201,33,9.259, 17,0,2,243. 73. b2 
, 16, 211, 254, e, 3, 16, 254. 13, 32, 249 
,35,78,151,211,254,6,3,1.6,254.13 
,32,249.35,27, 122, > 79, 32, 226, 25! 
.201,33.9,359.17,0,4,54.0.27.122 
. 179. 200. 35, 24, 247,0,0 
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Zusatz-Tastaturen fur den ZX Spectrum 



7 Modelle wurden geleslet 







BSjxsWuw*! Die* 







ZX SPECTRUM 




Spezffikationwi 


*w*. 


dklronics 


Li bersiclilstii belle 

Ricoll Profltastatur 

w 


IB) 


MM. 


Aufsatztastatur 


Tastananzatil 


52 


62 


42 


47 


47 


51 


ill 


Tastenbeschrtflung 


aufgaklebt 


autgeklebl 


autgeklebl 
(o) 


linterKlar- 


s.TypA 


aufgednickt 


unlertranspa- 
dBCkungenM+l 


TaBtanfunktlon - t. o 


Plalineneinbau 


ja 


ia 


*» 


nein 


& 


ja 


nein 


Interface 1 Einbau 


nam 


fi 


anateekbar 


fiber Adapter 


liber Adapter 


ia 


ansLeckbat 


Netigerat-Einbau 


ja 


ia 


neii 


nan 


nein 


J8 


nein 


AnschlulS 


iiberStBcker 


Liter Sleeker 


Liber Steckef 


Qber Stecker 


fiber Stecker 


ubar Stecker 


aufgeschraubl 




Zehnerblock 


u.gioBe 
Space-Taete 


Shift-Taste 


gro6e5pace- 
Enter-Tasle, 
£ Symbol- und 




sor-Taaten, gr. 
vergr. Enter- u. 




Preis: 


&L16BDM 


179 DM 


198 DM 


ca.170DM 


196 DM 


21 8- £49 DM 


79-98 DM 


BNumnOc 


1000 Berlin 12 


EL, 


Stephen TrieSme 


sooo 

Hamburg 50 


Egriler 


££» 


££» 



Umlaute fur den Spectrum 



993] FOR K=l T'J 6 EEfHU P* • FOR 
NfB TO 7 

■■'?~d f'EHt' R : POKE U3R P*+H,R 
9393 NEXT N< NEXT X 

—'■66,68, 66,86/ S2SV« 



3994 [JHTFI ' 
,66,0 

9995 DflTR ■ 
,0 

9996 L'FITfl ■ 
60-8 

9997 [IHTFt ' 
6.0 

9993 DflTFI ' 

0.0 

3999 L'fiTR ■ 



.0,68,56,4,69,68,60 
".66,60,66,66,66,66, 
68,56, 68, 63,63,5 
,0,66,66,66.66.6 

53. 0,63, 63 .68, 56 



Hindernislauf 



138 CLS 

IE0 PfilNTSS, "HINDERNISLAUF" 

170 PRINTS32. -|HH»«*»*M I WI* I ■ # ■■ »» ItlMI I W 

1B0 PfHNTSI419, "COPYRIGHT BY M. HUH GEN ROTH' 1 



210 S0UND5B.2 
220 Z=8:PMDDE1!5 
250 DRflU"CEBM0. 



i'S THEN G0TQS5B 



"i,PSET ELSE PUTtk 
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BERICHT 32 



Das Genie 16 



KompleXEyslems (GE- 



ck'ni .ieiitsdmi Markl nciic 


id.hl.rA-^um-.lfnki.™:-™.' 


■ilLmjT <lca Sp^kh^rpl,,.,,.- >m( 




Maflslabe Dieser Contputci 
















deren PC-kompaiiWiTi \U-.,h\- 


.-.:■ ■ ■■ . .. ;■::■'■: 




triehssysiero AT-DOS 2.1 


































(jfral i'[*a licppull su ithiiL'M 


™ tl ™°i;: 


weiMf.iikiiSreld.erknpni.lSI 




wir Jit PC-kiJTnp.iliblcn Ma- 






rch] lien mil dem Processor 




pdsi: ilijsi.- Mil-Spur Laufacrkc 












Pte; GENIE Id wild in ;wei 








FiiiKi'ittn arSirtcrt Beider.V 


j.-wHIs li Zi'ichiMi Irci pn> 


tenem rfek-Basjc. 





is GENIE 16 

lauffahijies Syslem iiline [lis- isMiiiteincrdeutsclienTaitntiH 

ROM-Bask uiid dcr Spcicher- rienmaBig). 

n..-aiKlH t ,i „:r KsBBtte BbH QaitmiclBytrtly Zum An- 
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Die Stiftung Waren test 
hat zugeschlagen ! 

Ohjektive Produktbeurteilung odcr Stimmungsmache 






■em i rivi-Ni am iifm iji'.- = ■ ,j „7i \ v . ... j i." '* « ivsn-uidUKB ua> ai- 

>lemeMaTion des wcii t'r~ liTdin * i ail: ■ s - iIe " *"' lll: " « [I ""-r Hrnipliinnc n,-L. »iul ,^1,-fmi^ ijrltJ aus Fiii dun 
itetenCP/Mspaitllfflrlfr- 5^^^f^^£ abge,ehnt - Neuling dieser Materic Oder 
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VC 20 34 




Bach-Melodie 

:B2B rem bach 

IB3B REM 

1O40 REM MELOBIE 

ieee rem ce> is84 

1B6B REM COFYRIBHT 
1130 PDK£3SS?9,S 

uea pRiNT-ai 

MSB PRINT- U T * a m 

isbo print- a « ■ ■ a ■ 






IE4B print- mm a a a a a ■ 
laso print- ■« ^ mi a ■ 
issa print- a a a • a a am 


a ■ 
a ■ 
■ ■ 


iaan print- praesentiert 

13BB FORWSMTOBBBlhEHTldS 

13 IB F0RJ-SBTO127IPDKE368B5,J!NEXTJ 

13EB PRIMT-LJBI BACK MELODIE 

134B PRINT-aa <c> 1984 

!33B PRINT-B COPYRIOHT BY ML -SOFT 

13SB PRim--«l -> MICHAEL LIEBE <- 

1378 PRlNT-a-> MARKUS LINDEMB(*I (-- 

1380 F0RJ=127T0e5STEP-l iPDKE3Bfl65,JifCKTJ 

13SB PRINT-MB ANFHNOEN < J/M • 

I4B6 BETJN»r]FJN*---THEN14BB 

142B PRINT-J- 

144B PRINT"* BHCM MELOOIE " J IA-A* 1 : IFA-HTHEfW-1 

146B REA0T:PQKE3B87B,T 

147B READUiF0RLB = lTn33tU:NEXTUS:hCHrra 






























1S7B DATA 2,239 2 233 2 £34 2 231 3-235 2 




















— 
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VC 20 35 




CompuierKorrtakt11/S4 



VC 20 36 
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HLS-SOFT 
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COMPUTER-BUCHVERSAND 39 




Assembler 


§=| 


" /■ : .--~ 


TZZTJi. 





>> 





ZX Spectrum, ZX«1 und Jupiter Ace 



COMPUTER-BUCHVERSAND 



KlauB-Jtirggn Schmidt; Georg-Peler Re 



m 



Main uragon 32 






Dm aroe* Spieiebuch (Or Atari 



B 







I 



COMPUTER-BUCHVERSAN D 






ndDbungsbuchfO-Con.. ^t^^™' Basic CompuMrSpleleBd.l 



Program™ zum Le 

ZX-Spectrum, ZX 81 '***<* '^ m *. 



WTttiQ.SIagrnBr 



Proaran.mlar.nlr, Buic und Campw.rm-wd.rn.Mn.zXBI 8502W5CI 

™id«nZXer undSpKlrani Helse 198: 

Hofad«f19B2.1ies.,<a.30At J b. Idea TBS3, 208s.ca.3QPK*,,.. RuBdlagn, 



COMPUTER-BUCHVERSAND 42 



ER 





zutrefiendsn Sefervl aDIesan. Computwumstelgiir und Najlinne Urn 
Tabelle dan Rechnw ausflndig machen, der den uon Ihnen benct- : 
sronal hat. so daO die zu Hjaenden ProWame auch bewatHgt warden konnen. Die 
3b BASIC-Fteferanzlatielle ist auch die grofle HHfe im BASIC -Unteira 
ief nicht dagewesena Vollstandlglieit von BASIC-Dialekten im Zi 



Das Spectrum B licit 




Splele fur Ihran ZX Spectrum 





BUCH-BESTELLKARTE 



COMPUTER-BUCHVERSAND 



PC 1500 



FarbMi.Gralik.Tm.Splete in Basic "M™ __ aie liBfert. "™™ lma 

sette lietertiar), SM s., db. Abb., Basic Obungan Kir d«i Apple Beslellnumme, IWT 6B DM43- «w™9 19B*. prasramn* 



ProOsoft-M-CODER 22E: 

Fur den Sinclair ZX Spectrum 1 6/48K ^hSfsk 



re, unwichcigere rem"*"' "fife OREAK-Fnnk- ' lorte Prograjnm 



ijsnioi i.. 



ftVrammcnhand™ ,,.«*!' D " M - Codw n ^^P 3K REM * 2: D " B^tAK-Funk 

BASIC-COMPILER. '' (Eta S ^*e^t™^b B e^'iK Pl<> " Lcb^rtdie'^rade^^T' 

Bamme laufeiTbis zu ill mid ' thl ' i als dcr * tleiDe Binder.. bci, das 5 Sciten umlalit, was 

schncUei ab ) ' AnUitJchi is: es n,,;>i:!i,h. mi! ahci viillic amreidll. Die Ao- 

!;■;.:.!,■ i ■,:,!■! .■,:.■■■ y: : ..... ..:...-. ; . ... ..... ;.:■ : ,.'.., ....,,.■, [,. : . ,. :|l; . 

schiDcosprachc EcschriclKii. ,j cn U- Iwnlfn Compilirn urn Vurlcil de< Compilers isi'dni- 

tlso Echnlcr Craiipiliernirjjaris [NTEGFK-Compiki. ii ( ver- Oesi-hwindigkeiliiingenjiig. 
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B BEEP I/Ill.... Dii' i.-1'nij-i. NmhNi' drs M-Codas: (BASIC-Cumpikr) 

■i;.i Prograaao sjnd z.T. Creisr ca.3S.-DM 

hi schneU. fla FOR-NKXT I) Her M-Coder hal dn,' fcii Swem: ZX Spsclnim I.V4KK 

blffli-n OL5iu UHix srhivlJc. aii£di.;.k- V:i- ;.;i j, rir:ilK;l= vm IriTKli-lfcr: Fronton. 

s BASIC, bci PRINT ?■ iOr.1 Bvtes fmfiina. Wcnn man wi™zd]L„- 
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Wersiboard »Musik 64« 

Compulennusik mit dem Wersi-Keyboard >Musik 64* 




Das Program iri .>Puh M- cr- 
il,6,:liLill i:n -. I r ^- : -. ! -.li- 1 1 j L\ [<■['.■ 


Ki.-VTii;i[:1 :.;.."!-. dur .link" :: 


DasWcrab^.M^kM.^ Waveforra 












boardlaslen glLrithL'Lj i".:y iv- 


verandern will. Da7u verschkbl 












ww (vorcingi;bldlr: K'ul. 1 ! 




>L:]nnii. auf di'm^ldHdigsiUnlli- 


Duly Cycle 




ilfiSi-iii-heri. ciii .lei MDiSyimd 




(Tastverhaltnis 
















eckscnwiueutig) 




tggt. WiJ IE an koinpleser; 






Keyboard ^iim Bespielen frei- 


KISniK mcugL-n. sn hedk-nl 


dtt gill such hicr wicder, daB 




tLiyb.'ii D'lr^h Driickcn tfer 










.MmmC^.Mankartilhieraijf 






;ol;e,Uc Klanj-Tparaniticr vcr- 


dem Keyboard n«r nratiophon 


Die einzeloen Parameter 


J**_ H , b 



™ C64 « 



weiler 


daistcllt. Bcim Pr,^i,,.i-.n 


FurC64 


undVC20 




-i'ui.i W- .,r.J die ,TZ,.:!h,„ t n 










M.. dcm Eprom-Pmg,™- 














bcfriedigciKie^ ■ ;■•■ 










































versorgungis(j]idi(m)iw:klis 












11™' 


'"d^P™™ U 


™Jc erne hochwertige Aus- 


SIC-Proglamme bis I6K ak 



■ ausget'allun untl Jiirfle j.st die Geraltnummcr unit s 



£^rxr . s fTj_ „ sSHSSc =«'-"=: 



'"" Sprites erstcllcn 



^mBUPRIMT-r.'WRtdEBJ.TdB^B^^SBJi^T 

r-|T"E^c RFi ' 70e3:Pf " NTCHR * <leB)i!h * XT!PRINTCHR * <l 



Computet Kontaktn/B4 



Through the Wall 



38 FDRL=OT0S93ST£PE:P 



*INTfflB<B)*l ZERSTOEREN E 
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Computer Kontakt 1 ' 



C64 




BASIC-Erweiterungen 

Wfe funklionieren sie und wie kann man sie setbst programmieren 7 

ii.-l.'l im.ijc. 'in- ArLidls- |.i lijies in^hr al= I IX! zus;it7lii:he rung, iliesng. »Ausnife 



DicBefc! 


lscrkcnngngsrouuiie siellt [oigc 
LDA *<ERKENNUNG 


£^ cd " Anfanssdcrknu,inc 




RTS 






die OfOf 


Befetilscrkennungs-RouH 


e.D 


aufgerufen und .verbirgl- den Vektur (T767777) auf 




REQ FOUND 1 
JSR 121 




CHRGET - nachsres Zeichen holen 
Ausrufczeichen 7 

falls ja. Sprung nach FOUND 1 


FOUND 


CMP #146 
BEG FOUND 2 




isauhsics /.eiuhcn holen 
Vergleich mil Tjiken van WAIT 




J MP 429S3 




Syniax-Enui 


iound: 


as cigcntlichc Programm 
JSR 47003 




GETBYT-leseneiiicr1-ByK-7ahl 


LOOP! 
LOOM 


LDY 4009 




Veniige nirigssdlMfe 


LOOP 3 


DEV 

BNE LOOP1 







Der neue »Wait-Befehl« 

100 REM »»*** ufiiT DATA'S *##»• 

110 REM 

200 F0RI=49152TD49207iREADP:POKEI,PiS»B+PiNEX1 

210 IFS<>6622THENPRINT"DATA-FEHLER"iEND 



310 DATA 240,006,032,121, 

320 DATA 008,173,032,135, , 

330 DATA 249,178,002, 208,242, 076, 



00B, 003, 140, 009, 003, 096, 032, 115, 000, 201, 033 

076,231,167,032,113,000,201,146,240,003,076 

,002,162,090,160,200,136,208,253,202,206 



C64 






X=1THEN:!WA1T(Y). 
THEN-Abfiage direkt zu 



Prufsummen- 
Generator + Indikator 



;«taettnitJMP(776|de 






lerikiuiAcrt. crlordertich. D, 



1B0 REM COMMODORE S4 






S"*-siS>E: 


\ll REM ****"*""**""*""*"' 


***« 


^t^",^^ k^"'B 


130 REM III PRUEFSUMMENSENERftTOR 
140 REM *** 


m 


'^^mmm B 


130 REM **> (C> 6/1384 BY 






1G0 REM **» STEFAN MflRKOWIT? 






170 REM *1* VON-KETTELER-STR. IS 






180 REM If* G100 DARMSTADT 


J;: 


v ; ™,! ;: ; 








220 PR1NTCHR*(147>:REM 41 

230 PRINT"PRUEFSUMMENGENERATOR":R 


M 193 










REM S36 




330 IFLEN(N*:>>14THENPR1NT"NAME ZU 


LANG !-:END:REM 2 IB 




2S0 aPENl,8,2,N*+",P,R"!REM 2G 






270 OPEN£,B,3,N«+"/R,P.W":REM 175 






280 BOSUB430:PRINTIt2,G*;:REM 19 




mitSlMON'sBASIC Die An- 


290 GOSUB430IPRINTH2,G*>" :REM 23 




den mit: POKH 770. 


300 GOSUB430:PR1NT*2,G*; :Z=GiREM 




310 eOSUB430:PRINTtt2,G*; :Z=Z*G: IF 


^0THEN4B0:REM 4 


ri'KN>. Bcidt POK1:* '««•■ 






:l-is in diu't A'ilc cin^^clx^ 


330 GOSUB430: 1=1+1: REM 200 






340 1FG=0ANOI >3THEN400:REM 33 






350 PRINTtt2,G«! :REM 251 




DATASETI'E: DasProgramm 


3G0 IFG=34THENQ=-Q=REM 250 




»iB wit KaseltenupcmlioiBti 


370 IFG=32flNDQ=lTHEN330:REM 124 






330 1FG=143THENR'1:REM 117 






390 S=StGiGOTO330:REM 41 












410 IFR=1THENPRINT#2,G*; SGOTO300: 


REM 244 


Eysy,^. 


430 BETttl,G*:REM 59 


G*; :GOTO30B!REM 185 








RufenSkinI 


448 IFG*=°"THENG*^CHR*<0):REM 177 








430 0=flSC<G*):RETURN:REM G 






rat MMUM 

Tel. 1 71 51 MM 48. 



C64 



COM10DORE SI 



PRUEFSUM^NIh 



STEP ON MftRKOUITZ 
VON-KETTC1.ER-STR. 1 
6 IBB DARMSTADT 



l-FEHLER":END 



330 DATA 23] ,i 



Maze-Ball 



printbS:f 

a get*$:ifa 
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C64 


62 


1320 printgIS" stick nit steuerun 

1331 printglS - vorsicht bei schwis 
133! printgJS" »b IZO!" 
1310 printdSgiS" *u* gent's t" 
1350 pnntflSgZS' taste druecKen ■ 


-igkei 


Z£L- 






1370 printBS 










UZD prmtbSg1S"m8?e-ball written 1 


I- 








1*50 print US aS'last score: " sc: sc-- 










HT0 printdS OS ! inpuf level 10-300) 
1510 gctaS:ifaS'--th e n15IO 


t„f 








1500 fori=102*tol9atstep40:poXei.l6 


ir 


RXSU 






1660 lf8> !^nth n ' t t-*5D 










IT 40 forze = itto0stBD-1:printgl$:cnr 
1750 *=peekljy):ifa>2i9tbensysigiU 




*.n*st».*t 


,157);- -chrSUIII 




iJao 1 f"-ii9tn Br " r -i° 










1830 KpeektsploSZthenlOao 










I860 ifpeeklv + 31)OOthenl*BO 










1090 ifpeeklsp)MO2then1»70 
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I,?55:fort=15a5to160l 



^53?*B:pokev.2B.!55:poKev07.5:pofc 
OOke!0(0.n:ookeJ011,U:pokev31,0 



Die grofte 
Commodore-Show 

Einige Besucler liefltB il<* das ElnQitte£dd wleder zi- 
rOckgebcD, »til in der Ctbt- rlulllen Halle ki'ln Weiterkon- 
mi-n mtlir war: 25.0UO BesiKber draiiutrn sicli wahrcnd 

d.r drvitaRiuen .rini™iudor<-Snnei^Sliim« In Fraiikfurl 




■■■■■■■■■■ 
■■■■■■■■■a 
LESERFRAGEN 
■■■■■■■■■■ 



mil gruBcr Freude 



LESERFORUM , 
CP/Mlur Atari? 



Oriel 



ORIC ATMQS fif die Vteiltr- 




tuinwktwtmitvOltH limiinii! 


BASIC 0.a.) |,,&iltL' !.i: :.:, 






verbessenimdemif.- ::,-<■■!,:,■..,:■; 




Raw ant ,im nmnlm t!andse- 












ilini .-1 IMO's wid t„n<j*i.thn 


gesucht! 










am del, Kauf &s ROM 


Liiischus7 h ir0!!i™in fur me 








l^sraniinnml.il,: iiHaSIC! 








also das Listen hzw^iere 


ure Pmgmmkr&mkiH be- 


grammea VBtdn ■■ 








Icfl sutbc auch noch cin Prn 




graram "AUTOSTAK T li- 










Kopierschutz liir den 


me. 


ZX81 





."_ verlanjlr Eine doppelt I 
v spi^lri? kl'SL'll,;. Pn-.£i;.rnmh 



;r freund lichen L: ■ 




H 


























. De 


lalb 


lK.J1i.Tl wii 




lw 




hi 




An 


sdirtih™ 


15 








life 


JiHetl 


flbg. 


dmckt. 



Gratiknrogramm fiir 
C64I 



Schreiben Sie mis 
wenn Sie Fragen faaben 



Kg ^dim also £tlragl werden. \ 
infach die Frage srhriftlich mn F 
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Thomas Tausend testet die ATAM-Maltafel 




"""""" " ,a4 ATARI 

Rollydolly 

2 RESTORE 7070 

5 GOSUB 7000 

lo^OfiElo' 10 ' 10 ^ ^ ^"^.lOiSQBHD 2,81,10.10 :S OUND 3.60,10,10 

20 PAGE=PEEK( 106 )-B: CHS=PAGE*253 

H Xutll ™f^™^ ™. PE EK<57344 +N) :PO EE CH S+ 512.K,PEEi C (57344 + N ):f] EXT N 

50 FOR 1=0 TO 7:READ A:P0KE CHS+C*at-I.A:NEXT I: GOTO 40 

SO DATA 1.60.i«,24.i,12o,se 68 " ^ ■: ?g 

65 DATA 2,255,2<i,2.-: i 36,i9b ' 

70 DATA 3,0, 0,124. 243, 124, 68!l36 23B 

77 RESTORE BO 

80 DATA 4,30,52,120,240,74,76,136 224 

90 DATA 5,1,7,31,7,4,8,16,60 

100 DATA 6,128,234.184. 224,64, 32 is 14 

110 DATA 7,128,128,193 24o'l92 160 144 174 

120 DATA 8, 1.1, 3, : 6 , 3, 5,8^89 ' * * 

130 DATA 9, 60, ;26, 207, 125, 124, 34, 17, 119 

140 DATA 10,0,0,62.207,62,34,17,119 

150 DATA 11, 2<:g,. -4, 30, 15, 33,50 17 7 

160 DATA 12,128,22^,2'ia,224|32|l6'8 60 

170 DATA 13,1,7,29,7.2,4,3,112 

180 DATA 14,261,251,0,233.223 =23 251 

200 DATA 15,7,25.97, 255, 129, 2i5,I39;255 

390 DATA -1 

300 SCHW=l:sc=0:LEB=3 

310 X-3: V=21 : CHA=0: LUFT=36Q-S0*SCHW+LUFT- GUT=0 

320 FOR U~-0 TO 3SSOUSD N,O,O,0:NEXT N 

400 GRAPHICS 17:POKE 756 PAG3 



430 FOR OR = 1 ' ,:PL01 ' 1 - 1:DMUrT0 iS.^BRAWTO 19.22:DRAWTO 1,22:DRAWT0 1,1 

440 FOR M=2 TO 18 

450 SOUND 0,255-(N*19<-M)/2,10,7 

470 IF RNDCOK0.25+SCHW/50 THEN LOCATE M+l.N.Qls LOCATE M-l N 02 -if 01O14 AND 03 

014 THEN COLOR 14:PLOT M,N r*='*» K"™ A"" 82 

460 NEXT H:NEXT N:SETC0L0R 1 3 15 

21°dS 4i21 07 16 - 2:DEAWTO ".^COLOR 14.PL0T 16, 3:D RAWO 18,3 : C0LOR : PLOT 2, 

500 COLOR 47:FL0T-1B,2 

501 GOSUB 510 

502 GOTO 550 

510 SETCOLOR 4,INT(RND<0)-15),1Q:IF STRIC(0)=1 THEN 510 

520 RETURN 

550 SETCOLOR 4,9,5:SETC0L0R 0,1,10 

600 FOR N=l TO 2-SCHW 

610 Ql=INT(RND(0)'16)4-2 

620 0.2=INT(RND(0)+1B)*2 

530 LOCATE Q1,Q2+1,Q3:IF Q3014 THEN 610 

£43 COLOR 47:PL0T 01,02 

6SO NEXT N 

1000 REM SFIELBEGINN 

1005 WM3OC-LUFT)/20+3*SCHW 

1010 A=STICK{0)' 

1020 IF A=14 THEN GOSUB 2000 

1030 IF A=ll THEN RICH=-l:GOSUB 2500 

1040 IF A=7 THEN RICH=1: GOSUB 2SO0 



1050 IF A=13 THEN GOSUB 3500 

1360 IF STRIG(0>=0 THEN GOSUB 4003 

1130 SOUNC C,O,-::,0i30'JNr j,25.--4*Y,3,i:50!JNL l.A-3,10,4 

111(1 POSITION 1,0:? #6:";.:";J-U_-T:" i'!Jr."7E: " ;3Ci" " 

1115 POSITION 1,23:? #6;"LEBFN: ";LEB 

1130 if x=ia and y=2 then gut=i 

1130 IF X=2 ANT) Y=21 AND SUT=1 THEN 3000 

1140 LUFT^LUFT-1 

1150 IF LUFT=0 THEN 2610 

1160 POKE 756, PAGE 

1170 3ET3GL0E 1,5,14:SET00L0R 4,9,3 

1175 SETCQLOR 0,1,1:SETCCLQH 2 . 12 , li : SETCOLOH 3,1,1 

1200 ?0R N=l TO 30-WT:NEXT N 

1210 COLOR 2*CHA*161:FL0T X.Y:SET00L0R 3,12,5 

1220 IF CHA=1 OR SHflKf THEN CHA= NOT 0HA:GOTC 1250 

1230 IF CHA=4 THEN CHA=4.5:G0TO 1250 

1240 CHA"4 

1250 REM 

J30C GOTO 1000 

2000 LOCATE X+RICH,Y,Q1:L0CATE X+RICK. Y-l , Q2:LOCATE X+RICH,Y-2,q3 

2010 LOCATE X.Y-1.Q4: LOCATE X,Y-2,Q5 

2020 y*—3,5»RIG^fe?.5 

2030 COLOR YY:PLCT X,Y:G0SUi? «K»SlS 04=14 THEN RETURN 

2040 C01CH YYiPLOT X, Y-l: COLOR OiPLOT X.Y:GOSUB 3000 

2050 IF 9fi<>14 AND 1)1=14 THEN COLOR YYiPLOT X+RICH,Y-l:COLQR 0:PLOT X,Y-1:Y=Y-1: 

;■;■■=;. . i,i ■ .! ■ n;:00: RETURN 

2OB0 IF 05=14 THEN COLOR OiPLOT X.Y-1: COLOR YY:PL0T K ,Y: 2CSUB 9033:RETURN 

.--70 ,'ui.oa YYiPLOT X,Y-2:C0L0R 0:iLC: X,Y-I:C03UB 9000. 

2030 IF Q3014 AND Q2=14 THEN COLOR YY:PLOT X+RICH.Y-2: COLOR 0:PLOT X,Y-2:G0SU3 

t H PETURN 
2090 COLOR 0:PLOT X,Y-2:COLOR YY:PLOT X,Y-l:QOSUB 9000:PLOT X,Y:COLOR 0:FLOT X,Y 
-1: GOSUB 90O0:RETURN . 

2500 LOCATE X*RICH,Y,gi 

2501 LOCATE X+RICH.Y+1,02 
ibO; LOCATE X+P.ICH,Y+2,Q3 

2503 IF Y<21 THEN LOCATE X+RICH.Y+3.04 

2505 IF RICH— 1 THEN CHA-4 

2507 IF RICH=1 THEN CHA=0 

2510 YY=(-3.5-RICH+167.5) 

25-0 1*> 01=11 THEN COLOR (167.5-S::iI/.-:.:l-'LCT X,Y:G03UiS 9000 ! RETURN 

2530 COLOR YY+llPLOT X,Y;CCI.OR YY+2:PL0T X^ltlCH, YiGOSUB 9000 

2535 COLOR 0:PLOT X,Y: COLOR 2-CKA+16 i : PLOT XtRICH.Y 

2540 IF Q2=1J OR 02=2 THiS X=»RIOH:RETURN 

2550 COLOR 0:PLOT X+RICH.Y: COLOR YYiPLOT X+RICH,Y+1:G0SU3 9000 

2555 X=X-*RICH:Y=Y+1 

2560 IF Q3=l-'- €■■! S3=E THEN RETURN 

2570 COLOR 0;=T.O! X,Y:COL0R YYiPLOT X,Y+1:G0SUB 3000 

2590 IF Q4=14 OR 04=2 THEN RETURN 

2-,-r- "(yi ' ti=-' TO :1;-OLOR 0: L 'LOT X.K-1: COLOR. YY:PLOT X,N 

2005 FOR K-5-N TO 5*N+4:F0R KLO TO 3 i SOUND KL,K+KL,10,10:NEXT KL:NEXT K: GOSUB 9 
00O:KI;XT NiPOP 
■ 2610 LEB=LEB-l:S3-{ABStABS(Y-lG)-9)*A3S(A3F(X-lB)-B))«(GUT+l) 
?6?0 GRAPHICS :7:P0KE 7 5-5 , PAG K : ? #-3; SS ;"<<.<<". "PLTNKTE" 
2625 ? #5, E 1 ' + T!:";1EB,, 

2S27 POSITION 9,5:? #6:"' ' """ " 

2630 SC=3C+S3 

2B40 POSITION 0,10:? fr::":.'IK blsibt IK ":FOSITION 0,12 
2650 POSITION 0,14:? #5; ;Ju-3C"33HWiLj?T;"< einhoiten 
2900 GOSUB 510:IF LEB=0 THEN 300 
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2910 GOTO 310 

3500 LOCATE X-1,Y,Q1:L0CATE X+1.Y.Q2 

3510 IF 01=47 THE!.' SC=SC+50: 10L0R ' : PLOT X-l ¥ 

3520 rr 02=47 THEN SC=SC*S0: COLOR 0:PLOT X+l 'y 

3530 IF x>2 THEN COLOR 0:PLOT X-l Y 

3540 IF X<18 THEN COLOR 0:PL0T X+l.Y 

4000 BR=X+RICH:N=10O 

4010 LOCATE ER,Y+1.Q1 

4015 SOUND 1,0,0,0 

4020 IF 0.1=15 OR Ql=a OR Ql=14 THEN RETURN 

4025 SOUND l,N,10,5:f*=N-4 

4030 COLOR 2: PLOT Bfi,Y+l:4K^3= +a T«H;-30TO 4010 

7000 REM ANFANG 

7010 GRAPHICS 2+1B:? #6;"BITTE WARTEN SIE EIN WENTG " 

7011 ? #6, ,"r 1 1 y d o 1 1 y" 

7012 ? #6., "by Clemens, meier",,, "(0)1984 " 
7020 SOUND 0.0,0,0:SOUND 0,A,10,10:GOTO 7040 
7030 SOUND 1,0,0,0:SOUND 1,B,10,10 
7040 IF AA=0 THEN READ A,AA:IF AAOO THEN 7020 
7045 IF AA=0 THEN RETURN 

7050 IF BB=0 THEN READ B,3E:IF BBOO THEN 7030 
7055 IF BE=0 THEN RETURN 
7060 AA=AA-1:B3=BB-1:(J0T0 7040 

7070 DATA 251.25.60,25,132,150,45,25,45,25,40,25,35,25,45,25 35 25 40 ?5 
7200. TATA 0,0,0,0 

8000 SOUND 0,120, 10, 10:GOSUB 9010:SOUND 1 ,96,10, 10:G0SUB 9010:5GUND 2 81 10 10 
OSUB 9010 

8010 FOR [1=1 TO 30:30UND 3,60,10,12:G0SUB 90O0:S0UND 3,O,0,0:NEXT N 
3020 FOR N=0 TO 2:S0UND N,0,O,0:NEXT N 

8030 GRAPHICS 17:POKE 75o.PA.ir;:? *o;:.:.;hw."i. ?j+LUFT,"PUNK?E" , , ."GEKCEF.EN EI?" 
8040 SC=SC+SCHW'30+2C+LUFT 

8050? #6i, T "GESAMT:%&«&"iSCi"-,-,",,"LEBEN: ",LEB, , ."START" 
8060 SCH1£*SCH1H-1 - 
8070 POSITION 0,10:? #6;"DIR bleibt IM "rPOSITION 0,12:? #6i"na8chBten SPIEL":] 

6060 POSITION 0,14:? #6;.iJ3-.;;;-f;:fr*i-LUFT;"< einheiten LUFT" 

8090 POSITION 7,5:7 *fi:" """ """"" " 

8200 GOSUB 510:GOTO 310 

8800 7 #6,SC:FOR N=l TO 400:NEXT N:GOT0 310 

8999 GOTO 8999 

9000 FOR M=0 TO 15/SCHW:NEXT M:lirr=lirr+15/SCHW: RETURN 
9010 FOR M=0 TO 15iNEXT H:flETURN 

9130 REM **» ' *.. 

9140 REM '" ROLLYDOLLY — 

9150 REM *** 

9160 REM •** by CLEMEN'S MEIER *** 
9170 REM »•» «.* 

9180 REM *«" KIRCHMATTENWEG 8 **" 
9190 REM "* **> 

9200 REM **" 7833 RHEINFELDEN/5*" 
9210 REM *** i i 

9220 REM "* TEL.:(07623)/40931"* 
9230 REM *** **» 

9240 REM *** <c) CM"84 Mm 



..mia. ATARI 

Morseprogramm & 



hen /.ei!e IJU: Vcr S l;ii.[i. ul) S!'«'h 






MB. 


Oder EOL (RETURN). 


















/fill 


300: Drackt dis (jber- 
















310:StbaltelBREAKaus. 


















an/ulutsn und die Abfrage 




























abg 


cgi wd (ZMk 3«). 


B " 1 " M 



10 GRAPHICS 

20 DIM D$U),A$<l),B$<l),C$(<l),V(10a) 

70 GOSUB 300 

80 OPEN #2,4,0."K:" 

90 GET #2, A 

100 IF A032 AND A<>155 AND (A<65 OR A>91) THEN 90 

110 PRINT CHHS(A)I 

120 LET A$=CHR$(A) 

130 IF A=32 OR A=155 THEN 90 

140 LET C$=STR$(V(AJ) 

150 FOR l*=l TO LEN(C$}- 

160 LET D$-C$(N,H) 

170 LET C-VAL(DS) 

1B0 FOR L-l TO CIO 

190 SOUND 0,50,10,15 

200 NEXT L 

210 SOUND 0,0,0,0 

220 FOR M=l TO 5:NEXT M 

230 NEXT N 

240 GOTO 90 

250 DATA A,13,B,3111,C,3131,D,311,E,1 

250 DATA F,1131,G,331,ti,llll,I,ll,J,1333,K,313 

270 DATA L,1311,M,33 1 N,31,0,333,P, 1331. Q, 3313, R, 131, S. Ill, T, 3, U, 113,7,1113 

280 DATA W, 133, X,3113,Y, 3133, Z, 3311 

300 PRINT "W1RSEPR0GRAM BY TT64: SCHREIBEN SIEI " 

310 POKE 16,113 
320 FOR N=l TO 26 
330 READ A3, 3 
340 LET V(64+N)=B 
350 NEXT N 
360 RETURN 

.000 REM «•««•*•»*•«*"*"*»•*"***" 

010 REM * Morseproeramm * 

020 REM ••*»******»**«»***»***•»•••* 

030 REM * ATARI-Club Kleinheubach • 

040 REM * Thomas Taussnd * 

.050 REM * Am FelEenkoller 15 » 

.060 REM " B764 Kleinheubach * 

.070 REM * Tal.: (093713/4647 

REM ..**«•••**#*****•****.»•**** 
REM • (o) 1934 hy TT64 * 
100 REM *****•«"**«**«********•">•'« 



C„put.,K.naMIVB4 ATARI .1 

HEX-DEZ-Umwandlnng KSSSU^ SiS 1 """"- 






10 DIM M$(120) 

20 MS(l,''5)="CLB:DIMHSC1):»-l/16:? _ HEX' i :I.#0!yj:FORN=LEKCH$)T01ETEP-l:A-AE 

N , N ) )-48 

30 M$(76,ll7)=":A-A-(A>16)"7tM=16'M:D=I>i-M*A:N.N:'>'DEZ "-D" 

40 OPEN #1,9,0,"D:DEZER" 

50 FOR N=l TO LEN(MS) 

60 2-ASC(M$(N,N)) 

70 IF Z*=39 THEN Z-34 

30 PUT -#1,Z 

90 NEXT N 

100 PUT #1,155:END 

) REM • HEX- DEZ-Umwand lung " 
) HEM •«••»••*••.».....«.-..»»., 

140 REM « ATARI-Club Kleinheubach * 

160 REM « Am Feleankeller 15 * 

170 REM * S764 Kleinheubach « 

] REM • Tel.: (09371J/4647 * 

200 REM * ( c ) 1984 by TT94 * 



10 DIM H${150) 

20 «SCl,4e)="aE:DIHH$(4),A$(16)iA$=-0ia34567a9AfiCDEF*:M-4096 M 

■JlmeKrHEX ^i ,I - #0,D " 0BWT04,a - D,T ^ ,, J ! H*(».M>«( W i.8n) lD . D . z . K 

40 OPEN #1,8,0,"D:HEXER" 

50 FOH M-l TO LEN(B$) 

60 Z=ASC(M$(N,N)} 

70 IF Z=39 THEN Z=34 

80 IF Z=37 THEN Z=15E 

100 NEXT N 

110 PUT #1,155:END 

120 REM *.*«.,.,-,..•..*.*..»«..,„ 

130 REM * DEZ-HEX-Umwa rid lung 

140 rem **»*■ >■ ■ « ■ ■ n mw Mwimm 

150 REM * ATARI-Cluh Kleinheubach 
160 REM * Thomas Taueend 
170 REM • Am FelBenkeller 15 
1B0 REM * B764 Kleinheubach 
190 HEM > Tel.: C09371J/4647 



DEZ-HEX- 

Umwandlung 
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Tiirme von Hanoi 


411 T f i 7^7y^-1"'J" 




260 LET D-URL INKEVJ 




















20 PRINT 'TUERHE UON HONOI 


SIS IF oil OR e p«3 C THFH i LET F-3. 


.:.-.(■■ ■■:?:■■ :■ . :■ - :■ :■; /,.-■. •■;■ : : ■.■;■. 






333 IF R ' ' ■■■ - ■: : - ?flTG 3SB 


.. |SbIGOFT E g£ | ,*Hi^ 
















■""'■' ■ ■. ■ ' 


503 LET R IF, R ir ,S) +1J =H l£,fi IE, 3 








S2E LET R <eJs) -R IE,S> -± 






.■MS .■'■•»• 
40 InpUt Nt 


54.0 RETURN 








<3-N THEN GOTO 67« 


























120 let |ll,« ■? 






680 ir INKEVJ=;" THEN GOTO 60S 

63o ir inhev*i>"j' then eoto se 














ISO LET tI(5>." .HV.' 




193 LET T*C6)-" Mj^h" 


708 PRINT "5PEICHERN E>ES SPIELS 


aOB J.ET T* (71 =" .^^B^K 

aie let t*<s> ="flBI^B " 










ifkl MlhJf Af 14,3; ''l S 3 


BBO PRINT RT 17.. 7., "NICHT ERLOUB 


d B e 7";rt ai,S; "i-3 i-3 






111 IF INKEy|T>"" T THEN G GOTCl*sfs 


2=B FOR N.i TO 7 


I.TBB 1S,T( tH f2,Nl il5 ;TBB sl,T*f 




900 SRUE "TUB" 










243 PRINT RT 6,6; "|S";TflB i«; "K" 




;tsb as; "»■■ 


98B GQT ° 1B 



Hexd 
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Kasekiste 



ZX81 



=*« 




ae PRINT "ERHRELT EINEN PUNKT . NT ERV2I)] 

&ER SEUIN- HE: 



■ ■>-■ V^a T - 



isl bis n *^-s)=''iiP 

J5S JE 5? =312 THEN GOTO 5B0a 

ill Is £ ™" N °°™ " 

■IP Js'ss'liri ' •rtSMsgoE? 

203B FOR N-l TO Z 

5040 PRINT JJ; " . ■■; 7HB 4: 

506O PRINT N«IN);TRB SljCfiR* Its 




an gj 


Bf 


(ST 

C^ 8 


*)Mk 






SP*» 


*F71 


! 1 



c„„p„„K«.,™ TI99/4A H 


Liebe Tl-Freunde! 

un K. Hagrnhuchncr "'..rife- lich dtr Ucfchlsvortat umfi Be- 

giht es noch dar. Oucil-l iMin»° i'it,-;iiL uLn-[ das Asscmblerli- 
rafcr fiber das Poke-Programm. 


'4 °" 
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™ "»■*»" ».-"-•"■= 


| ZllllSSt 1 


_ i«- 


C(i 


=ip.„,£pp =;; ^ 



TI99/4A 





t^iS^ ',,,,„, 


«. |&c 




* '" Eg' 




KfSiiK 


. ■■ ■.. 


















WBfc 


:.■!■'; .:';■; ;- \ .'-'-: ,;-:.".'.; !'.., 


mik j^S™ 


W&m*m 










:•-?*- 




!li iikr 




























































tSI*'!™ 


jT-'T-'.; ■■"■■" 


: h,.™ mwmm 




s^p 




5W " jHlffli 


MB&ggS**" 




















IBSnSF™" 
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Poke-Liste 



POKE LISTE FUER SCREEN 
EBSTELLT TOM H-P SCHHWRNECK 
KONFIGURRTIQN EXBflS: 



Din cHaeej 
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470 DATR 15,14,6, 168.49, 130,6,7-22-252.4- 224, 131.124,2. 224 
480 DATA 131'22*'*-96,0. 112,2-0-30,0-4.32,32, 52, 6.1BU 

490 DflTH 49.'- « .S'l im i4l 1 W 

50O DATA 19,246.i6,233,194,139,2,l,12B,B,192,4.1J.:.lJ4,*,,ji 

310 DflTH 32,32, = -123-6,2,22,251,6-160,^,230,19S,4,l||.I34 

328 DATA 2. 3,48. 10, 208,115,4,32. 32. 32. 3, 123,6,2,22, -2=B 

330 DRTA 6,160,49,238,4,90,2.6^ _-S 

540 DATA 3,63,2, 224, 49, 10, 200, 32. 49,240,30.70,4, 192,4, 1SJ 

338 DATA 2,2,0,3.2.3,49, 13,6. 160. 49,42, 6'16B-43,bb 

560 DATA 3, 137. 2, 137. 3,239, 21,191,194.137, 2,42,23^.1^, IB. 36 

570 DRTR 2,42,4,0, 192,4.3,0.8,8,4,32,32.40.239.63 

600 DATA 3.138-6.2.22.243.192.4,192,73,6,193.4,32,32,^ 
610 DATA 5. 132, 6, 6, 22, 213. 4, 96, 49, 138, 2, 224, 49, 10, £,* 
623 DATA 0.3.-1 2, i . l«-a-a 2, 8,2.2.3,8,28.4.32 
630 DATA 32,32,3,128,6.2,22.251.4,96,49,139,16.0,2,224 
640 DATA 49,18,200.32,30,143,53,70,4,192,4.193,2,2,0.3 
630 DflTH £'3,49, 18,6, ISO, 49, 42, 6. 160.49, 66,194^13^, =,1JB 

670 DATA l^fsfli^ie^^, 0^29^6, 7, 6^13, 199 ' 

CM DATA 187135,162.7,283,72,4,32,32.32,4.96,58,16,4,96 

693 DflTR * 9 ' 13Bj2 ' 22 *'^'' a ',i; 2 ^ j ^ e ^|;|y;l ^lUyi^ai 

710 DATA 2 Us* ■" ~ " 8 ' 8 ..,, 

72B DOTH 208.242,9.131.2,131,8,28,21.2.200,3,51,70,183, 60 



DATA 0.2 

22,233 



750 DATA 2,1,48,11,2,2,3,23,4,32.32,36 

7S0 OATA 9,139,6,2. 133 IS? ,3 l'f! -iSj. 1 



7TJ8 DflTH 19,2.4,96,49,138,2,- '15,324 

790 DATA 4,192,2,1,0,1-2.2.48,10.200,32-48,7,43,7 

388 DflTH 19,3,212,168,43,6,16,2,212,168,43,4.4,32,32.20 

010 DflTH 233, 210, 3, 131, 168, 131,3- : 134,32,48.2 

028 DflTH If, ■..?. 10.7,32,43,7,6, 160,31,128 

038 DflTH 288,224,48,18,9.131,193,3.168.194,212,213,6,3,212,224 

840 DATA 48,3,6,3,6,2,6.4,22,248,268,210.9,131,10,147 

858 DflTH 212,131, 4,96, ZHI.231 ■ '.'je. I.Z 23?. 216.20,5,7,96,47, 196 

860 DflTH 22, 19,6. 12, 21, 169, 4, 224,47, 1B8, 192, 168, 47, 170, 2,34 

870 DATA 76,65,35,70,33.' SS.S2 BS,32,51,10B 

880 DATA 67,79,76,83,69,84,30,142.67,76,82,73,73,86,38,106 

390 DATA 73,78,86,69.82,83,49,242,66,76,73.78,73,32,49,76 

918 ! FRUEFSUMI1EN DER QBIGEN ZEILEN 

M0DHTH 1973,1237,1323,792,1113,1298,968,1473,1214,1320,1733,1137,1131,1468,880 

gio^ATA 1379, 1432, 1672, 1296, 1402, 1 189- 1062,733,733, 1303, 1321, 1424-885, 1288, 1338 

958*DATA 399,966. 1339,617, 1338,629,682,733. 1178,967,322, 1007- 1083, 1884,699,329 
960 DATA 961,1246,968,1096, 1445,1232,873,390,1512,1339,976,604,978,1673.377,2047 
970 DATA 1063,1712,1317,1293,1268.1287 
998 I PRUEFEN flUF KORREKTE EINGRBE DER DflTRZEILEN 

101O CRLL CLEHR i i PRINT 'ICM UEBERPRUEFE DIE DATA- ZEILEN. BITTE 1 MIH. WRRTE 
FOR 1-1 TO 70 ■• REHD CKD-' NEXT I 
SUFK>CH<Z)THEH PRINT "eINGABEFEHLER IN ZEILE"jZ*10*190 ■' CAL 

L eOLND<10B,118,O>" STOP 

1 040 NEXT Z 

1058 PRINT "EINGflBE KQRREKT, JET2T WIRD CEPOKED" 

1068 CALL INIT 

1078 I 

1088 I XMLLNK ROUTINE IN RAM POKEN 

1188 RESTORE 288 " FOR 1-9266 TO 9311 '■ REHD fl I' CALL LORD<I,P>" NEXT I 



1028 RESTORE 938 '■ FOR 1-1 TO 70 ■• REHD CH(I>" NEXT 
1038 RESTORE 208 ■« FOR Z-l TO 70 ■ i SUM-0 ■ :_FOR_I-' 



imputar Kontakt 1 1/8 J 

1120 t HAUPTPROGftRNM IN RAM POKEN 

1158 f EBT0RE 23B " F0R I * !a2Ba T0 >«Wi '■ READ A u CRLL LQAKI,P 
tlfiB I B6F1>EF TABLE ERSTELLEN 
1178 I 

1190 HE8T0RE fi7B ' ' F0R *"MS°* T0 1S3S3 ' ' READ ft i : CALL LOADO.fi 
! POINTER AUF REF'DEF TABLE 



Fassadenkletterer 



110 REM *m COPYRIGHT 6V 
120 REM m» H-P SCHWANECK 

130 REM «■*** BRAUNSCWEIG * 
140 HEM **•** 27.12.83 »** 



.100,lDO,-2a+RND»40,-20+RND-4D):: NEXT 
1B0 Z^IO :: M*= '■FASSADENKLETTERER " :: SOSUB 750 

170 DISPLAY AT<17.1) : "WN H-P SCHWANEC* BR 

AUNSCHUEIG TEL. 0531/324303" 

^f^AY^.U-ANLEITUNG? U/M) " >J " !! «CEPT AT(23.20>giZE 1 -l> U ALlDATE- 

JIMJn JlfiNTt i: IF ANT*="J" OR ANT*="j" THEN 210 ELSE RETURN 
210 CALL CLEAR :: CALL DELSPRITE(ALL) 
220 DISPLAY ATd^li-BPIELREGELW 

£ 30 «™ P ^ fiT(3 - 1):,,, <LETTERN SIE MIT. OEM MAENNCHEN AN DER HAUSFAS5A0EHOC 
H-. ABER yORBICHT. AB UNO zu ERSCHEINT EINE GEBTALT. '< 

240 DISPLAY AT(7,1>:"D1E GEGENSTAENDE HERABW1RFT. WIR 

^n^ I ^c, E ^^ ,V SETfi0FFEN0DER BERUEHRT ES DIE GESTALTODER DIE VORBEIFLIEGEWDEN" 
250 DISPLAY ATC12.1 1 : "V0E6EL ODER LUFTBALLONS . " SO STliERZT DAS MAENNCHEN AB 

BEUOR DAS MAENNCHEN LEBER 
260 DISPLAY ATtl^Ds-'DEN OBEREN RAND KLETTERN KANN, MUSS ES EINEN SC 
HLUES5EL FINDEN. DER AUF EINER FENSTERBANK LIEGT." 

270 DISPLAY AT<20,1 ) : "DIESER 1ST NACH DER 4. RUNDEUN5ICHTBAR. gr 

STEUERT WIRD MIT JOYSTICK NR.l. ALPHA LOCK L0E9EN jND EINE TASTE DRUECKEN" 
280 CALL KEY<O.KEY,S>:: IF B=0 THEN 260 ELSE RETURN 

2TO DATA 2111OF0303D303030707a'.040C3B0OD0eOa0FDCB«C0C0C0E0EO202D2020203B OlOlOfl ■ 
0060DFFFFFDFBB1 0200101 0000O030C0E070FCF4FCFF70E0C080OD0D00 

300 DATA O101OF-i323G3O3030707O40<.O40404-iCB48aF0COC0CDC0CDEOE02O20301COi]00 

□FOFQFOF0F0FO7O3O103O000ODC0EDFOFDFDF0707QFDE0CDB0C0B44038 

310 DATA D00O00D00OnOO00D21110FD7O7D707D7ODO00OOOO000OOOOB488FOEOEDEOEOEO 
EOC0C0COC0C0CCC0E0F09F9CFFFCFEOFQ7D3030303D303Q3O70FF939FF , ' 

320 DATA 1F3F7EFCFEEFC 76301 OOOOOOODOOOOOODQOOOQOOOOa 080 C0Et)F07B3ClE0F0■y0■ 
D31109OD07D3010F0F070703O32O4a4O902060CDB0O0D0F0FOE0EOr0CD 
330 DATA 0l0l0l0lOl0lDl01OI0lDlOJ070a0S07F8E0C0F0a08Oa0aOBOa08OBDEOlDinF! 
10B8402GG704Q6545770505000400705074444404Q700004021 108442^ 
340 FOR 1=1 TO 10 I! READ A. :! CALL CHAR<92 + (1-1 ) *4.A*) ■ 1 NEXT i 
360 ™ LL CHARI91 '" FFalaiFFFFlaiaFF, ' )!: ^LL CHAR<l32,''0E0COa08O6lC221C"> 
E CtE CCC CCC LLC tree 
: B*-SEG*IE*,2,27)B"i;" 



400 -DISPLAY ATil.D^LEBEN; PUNKTE: RUNDE: " :: CALL S 

CREEN12):: CALL COLOR CI ,4,4,8,12,9) : : CALL MAGNIFY (3) 

410 DATA 4. 4, 9. 14, 19, 24, 10, 3. 8. 13. IB. 23, 16. 7, 12. 17. 22. 27, 22, 6.1 1.16,21, 26 

420 RESTORE 410 :: FOR 1=1 TO 4 tl READ ZE<I):: FOR 1=1 TO 5 j: READ SPCI,J>:: N 

EXT J : : NEXT I 

430 C0L»2 :: SH-92 :: L=3 : s P=0 :: 0=0 :: DISPLAY ATC1 .1) ^'LEBENi-'sL: 1 ' PUNKTE: 

,, ;P,"RJNOE! ,, lU*l 

440 CALL SOUND! 300. 698,0,680.0) 

450 CALL 50UNDC300, 688,0,1047,0) 

460 CALL SOUND 1300, 698, D.BBO, 0,10*7,0) 

470 CALL SOUNDI300, 696,0,831, 0,1047.0) 

480 CALL 50UNOC600, 967. 0,764, 0.988,0) 

490 ZV-INT(RND»5)H :: ZU=INT(RND>4)+1 : -. CALL SPRITEdH .BH, 2, 176, 104, #7, 124, 2, ( 

ZECZU)-l)*6,(SP(ZU,ZV)-l>i>S):: K=VH=HH=0 

500 CALL JOYSTCl,X.Y):t CALL POSITIONOH .Z.3) : : Z=Z-2*Y :: S=S+2*X :: IF ZMB4 T 

HEN Z=164 ELSE IF Z(16 AND K=0 THEN Z=16 ELSE IF Z<16 AND K-l THEN Z=184 :: Q05U 

B 660 ELSE IF S>232 THEN 5=232 ELSE IF S416 THEN S-16 

510 IF K+YOO AND SH-92 THEN SH=100 ELSE SH=92 

520 CALL PATTERNCS1.SH):: CALL LOCATEt#l ,Z,S) 

530 IF VH-0 AND RND+2M THEM. IU=KM)'15_ :; 6E=MT(PM»a) :i. CALL _SPR1TE'.&2-.S6. INT. 

RNDtl5+2).lNT<ZU*2-M6J.2,0.&E+*)ELSE 560 

540 CALL 5PRITE(»9.96.INTCRNO*lS+2^,INTlZU*2«130>,2,D,SE-4.IH0.104.1NTCRND*15+2) 

,INTCZU*2+160),2SD,0.-(GE+4)> 

550 CALL 5PRITE(*3,lG4.INTCRN0*15+2),INTlZU*2+B0).25O.D.-<GEi-4)):: VK=1 

560 IF W=D AND RND*2>1 THEN ZU=1NT<4*HND>+1 i: ZV=INT<RND*5«-1>:! CALL 5PRlTEt#4 

.106,2,<ZEfZU)-l)*B.lSP<ZU,ZV)-l)*8,D,0>ELSE 580 

570 CALL 5PRITEt#5,ll2+INT<RND*3).4,INr(RN0.15-*2),CZE«U>-l)*S.CSPCZU,ZV)-l)*e,I 

NTiRND*10>+2.0):: W-l 

5SD CALL C0INC«H,»t2.14,Cl>:: CALL C0INCC*1.#3.14.C2> : : CALL C0INCHH,«*,1A,C3) t 

: CALL C0INC<IH.#5,14,C4):: IF C1+C2+C3+C4O0 THEN 630 

590 CALL C0INC(ttl,*7.1O.C5):: CALL C0I«CfW,t9.14,C6) : : CALL COINCCIH ,ttlO,14.C7) 

:: IF C6+C7O0 THEN 630 ELSE IF CB— 1 THEN GOSOB 690 

600 CALL POSITIONS, Y1,*1,*3.Y2,X2, #5. ¥3. X3)t: IF Xl>240 OR X2<20 THEN CALL DEL 

SPRlTE<#2,tt3,#9,#lC):: W=0 

610 IF Y3>200 THEN CALL DELSPRITE(*4,t5) : : W=0 

620 GOTO 500 

630 CALL MOTION<n,5.0):: FOR 1=1 TO 5 :; CALL POSITION CHI ,Y1 .XI) : : CALL SPRITE! 

<t6,12B.2,Yl,Xl»6):: FOR J=l TO 200 t: NEXT J 

640 CALL S00NDC2OO. 1200-2UQH.O) : : CALL DELSPRITE(»6) : : FOR J-l TO 300. :i NEXT J 
:i NEXT I 

650 CALL OELSPRITE(ALL):: VV=VH=D :: LH.-1 :: DISPLAY AT.1.1) : ■■LEBEN:";L i " FUNK 

TE- ,, iP."RUNDEi"iU+l :: IF L=0 THEN 720 ELSE 440 

660 ZU=INT<4*RND+1>:: ZV=INT<RND#5)+1 :: CALL SPRITEIK7. 124, COL, CZE(ZU)-i>«B, CSP 

(ZU,ZV))*8):: K=0 :: U-U+l :: P=P+SO»U II IF U>2 THEN C0L=1 ELSE COL =2 

670 CALL S0UNDC60O, 440. 0.860. 0,660,0) 

680 DISPLAY ATC1.1):"LEBEN:";L;" PUNKTE: "i P. "RUNDE: ";U+1 n RETURN 

690 CALL M0TI0NC#2,O.0,#3,O,O.#5.O.O.»9.0,O,*10.0.0)j: FOR 1=1 TO B :: CALL SOUN 

Dl-100, 200,0):! CALL C0LORCtt7,2) 

700 CALL SOUNDH0O.6O0.0):: CALL COLOR<#7,1> : : NEXT I 

710 P-P+U*10 :: K=l :: CALL DELSPRITEC*7) : : CALL MOTION(«2.0,10,#3,0,-10.#5,10.0 

,*9,0,10,*10.0,~10):: RETURN 

720 CALL DELSPRITE(ALL):: CALL CLEAR !■- DISPLAY ATUO.l) : "PUNKTZAHLT'iP :: IF P> 

HSC THEN HSOP 

730 DISPLAY ATCIl.D^'HOECSTERSEBNIS^^HSC :: DISPLAY ATilS.l) :"NOCHMAL SPIELEN7 
<J/N)-> J" :: ACCEPT AT(15,26)SIZEC-l)VALI0ATEl"JNJn ,, ) :At 

740 IF M»"J" OR A*=".i ,: THEN 370 ELSE END 

750 REIt 

760 CALL SCREENI2):: FOR N=0 TO 14 :: CALL CQL0RCN,16,1> : i NEXT N 

770 FOR N=l TO LENChtt) 

7BD CALL SPRITEC»l,32,16.1,N»6+9,100.0):l 11=1*9,-1 
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790 C=ASC(SEG*<M*,N,1)>:: IF C=32 THEN 830 

800 CALL PATTERN<ttl.C):: CALL 50UN0<-10.2O00.0) 

810 CALL P0SITI0N(#1,ZS,S5):: CALL MOTION!*! , (ZZ-Z5I/1.5 

B20 CALL HCHARiZ.N*2,C) 

B30 NEXT N 

8*0 CALL DEL5PR1TE(1H> 

8&G RETURN 


□ )!: IF 15--.ll THEN 810 





Reaktion 



REM REAKTIONSSPIEL AUS DEI 
REIT ICM964 MARTIN OTTO 
REM E6AL SOFTWARE 
CALL SCREEN 18) 
D HC=99E99 

□ CALL CLEAR 

□ PRINT " 

D PRINT ! :" 

3 PRINT : : : 

3 PRINT : i"DA5 PROGRAM!-! ZEIS! 



O PRINT i'^DAS SPIEL HAT II 
■Q CALL KEVtO.K.S) 
IF 5=0 THEN 230 
FOR 5=1 TO 10 

□ CALL CLEAR 

□ TJ-STRi(S) 

□ F0R-L=1 TO LENIT*) 

CALL HCHAR(-1,15*L,ASC(3I 
D NEXT L 

□ FOR J-l TO 200 

□ NEXT J 

D CALL HCHAR(1,10,32,10) 

3 CALL C0LQR<3 " 

a CALL COLOR (1 

3 FOR 1=1 TO 1 

D RANDOMIZE 

3 X-2+INTIRND* 

3 V=INT<RND*23 

3 CALL SCHARfV 

3 IF C=32 THEN 420 ELSE 380 

1 CALL HCHAR1V 
J NEXT I 

) X=2+INT(RND»29>+ 
] V=INT(RND*23t-t-l 



GEH:SM..u;GGIKG"-P 1 Wl<-iHAriMPAKET 



VERSCHIECiENEN BILUECHIRfl- STELLEN 11 



DUCHRGAENGE. < TASTE >" 



:-32 i 



r(RN0»iui+ 

WO CALL HCHARIV 
500 CALL COLOR'S, 2. E 
510 CALL C 
£20 2=0 
530 JMt+1 

540 CALL KEV(3,t*,S> 
550 IF S=0 THEN 530 
56D IF K=0 THEN 570 
570 CALL SOUND (1 



t 480 ELSE 440 
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SflD GOTO 530 

590 CALL SOUND 11 DO ,1000,0) 




Wir danken alien 


610 PRINT ■'»»»»» ■';SEGKSTRS(i/17.£l,l,5)!" «<«««" 
620 FOR K-l TO 100 




tin se ren freien 
MHarbellem fur 


630 NEXT K 

640 NEXT G 

650 CALL CLEAR 

660 R=1NUR/17.5) 

670 PRINT "SIE HAEEN INSGESAMT" 

6S0 PRINT R^'SEKUNDEN IUM UEBERLEGEN" 

690 PRINT "GEBRAUCHT!" 

700 IF R<HC THEN 790 

710 PRINT "MIGHT SCKLECHT!" 

720 PRINT "DIE HOE CHST LEI SUING 1ST" 

730 PRINT HCt'SEKUNDEN'" 




ihre taikraftige 
Unterstutzung. 
Die Redaktion 






750 INPUT "NQCHPIAL? J/N:":A* 


'? "TZ,™ ie th 


770 IF A*="J" THEN 250 

780 END 

790 PRINT ■'HQECHSTLEISTUNS!" 

600 HC=R 

810 SOTO 740 




meine nur. diifl fiir Jlt= iiolier 

,■:.,.. II ■. IM LI. "-..I- 



Das schlimmste TI-Buch 




Wir kaufen Ihre Programme 

Haben Sie noch eigene Programme, die Sie bis- 
her keiner Zeitschrift angeboten haben Oder bei 
einer anderen Zeitschrlft schon sert Monaten 
llegen. SchickBn Sie uns diese Programme, wir 
drucken sie entweder hter im Heft ab oder neh- 
meri aie in unseren Softwareversand auf, den 
wir bald starten warden. Fiir Listings hler im 
Heft zahlen wir fur den einmaligen Abdruck, der 
Einsender kann das Programm dann weiterver- 
werten. Fiir den Vartrleb als Kassette erharten 
Sie von uns zusatzlich ein Honorar. Je nach Urn- 
fang Ihres Programmes zahlen wir bis zu 300,- 
DM, fiir Spltzenprogramme sogar noch mehr. 
Wir suchen auch kleine niitzliche Hilfspro- 
gramme, die wir sehr gut honorieren. 
Schicken Sie uns also Ihre Programme zum ZX 
81, ZX Spectrum, VG20.C64, Atari undTI99/4A. 
Beachten Sie bitte dazu auch den Text »Bei uns 
konnen Sie mltmachen« auf Selte 4. 
Verlag Ratz-Eberle GdbR 
Postfach 1550 
7518 Bretten 
Tel. 072 52/429 48 



mm®- 

tcj by TTB4 

ZauhwrprL... 

Eur a lie ATARIs! 

NEU: Thomas Tausend's BASIC-Zaiiherei 




Unit mes alias liir nur DM 46.-! 



T»kta:IM71/W*7 




KLEINANZEIGEN 



Das darfdoch wohl nichtwahrsein 

89 . -' "'" e SpiBla ** CaSS; '" ees<ha *™isaiikiiiig fur 

hmaberwahi . 

FUrSfit clnimJ48J<J Fi irVC-M FGr WC-20 




Match Point 15.- 

Night Gunner * Mugsy + A"le+ £4 je 3J- 
Hehr mill der Stall mihlkosten 
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KLEINAN2EIGEN 74 

STAUBSCHUTZHDLLEH 

i 64, VC20. 
Roppy Cas.-Siation. Moni- 
tor jnd Drjcker. Je StUcX 
nur DM16.-, at- 3 Teile 
DM 14.50, Porta + 3.-. 
Voo-Hullen, Kruse, Postf. 
1233, 2082 Ueteisen, Abt. 
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KLEINANZEIGEN 



CompuLer-Zubahor und Progran 
Piaisgiinsfege Abon'na 



isd Rage psgon B-ie Original I 



Bestellschein fur private Kleinanzeigen 

BUla tfflrfifTentllchen Sia in ner nach&ten Ausgab* toEgente Anzaig*: 






























■ 






ErSi™a53KSK5{S^ 


z$%z& sir™ ■" '" ■ 


1 




Vtri^Riu-tbtrftGdbk J 




nwMM. 



ililH 



FUNDGRUBE 



■ ■■■■■■■■■ Der Dnicki-r D-84 

■■■■■■■■■■ 

FUNDGRUBEJj ^HESEsHIE" 

'„ , . Aupassune an ikn VC2WC64 






Feraschreiben 

mitdemPerso- SKSjTSSS ri^S^S .XSgSSS 

nalCOmD liter sorgTcsmitSttoni. (Informant dfuckt a|]f 5( . mm br( . itl . B Nm . a -l,«J!iJ!i 8 v<!rhi[. leilod, iuj 

nen: Computer. ?"t'l.'. Klin- _ , ,........,,.. ..„ ....;... ntn Dnicker nichl vcrzicl 



ifePapierUrlngt. ««■•» 

"JSdf ^iSai-Zc^ Fi " den ZX S P ectrom 



'" :;: : :!';;-;' : -'.^''' k ^": Handler haften 

iele.' Kunigierc n. Spritheoi. fur ihr 

derge.pcitherieii iDtuimaiin Computerprogramm 

=n i-jdct Apt Am' &■!:* lasiice 



Die Hexcnkiich* 



von Peter Finzel 
104 Sciten DIN-A 4 
DM29,80 



* TOP TEN aus ENGLAND ; ™£2mS£ZZ 



um Itemc'li wr den. 
unddie Diskette dam 



DIE 
S3>^ HEXEN 

S5sS KUCHE 



lia (Legend) Speclrum 

n (Beyond 1 Spectrum 



ATARI |«» 



Marklin 
Digital HO 



FUNDGRUBE 



mMarliltn Digital HO- f" 



m LOAD ZX81-Program into SPECTRUM] 



| MICHAEL sH££ NAIUOKS S^ I 

Monitorausgang spezial- 

«ir den Spectrum ? hassette «r 

oibt es ^,ncQ M,mit orai ,,- Homecomputer 





last but not least... 



-ate: Laser 210. VZ20I? 
bbeitrag; ncin 


Program mtcreii .■:■ 
Dicse wichtigen Fakten - 


Id 60 Minuten 

omputenvissen 

n Lew Hollerbach 
■jSciten.21.S0DM 
a Verlag. Puchheim 
IN 3- 88793-01 1-8 


:n ■i.i'l-'.lLj'^i. :irr mlIi ..isch 
nfrrrtnicren mrjchte. i i heps i Lira - 

■ ■ ■ : ■ ■ ... :■■■': :: . 

UMBmmmm 
Computerwissen 




FUNDGRUBE 



Die Gen inner des 
Preisausschreibens 




olkcr ROckschloss, 


i--^^H 


Mitglieder fur 
Apple gesucht ! 


- Hier der glikkliche Gcwinne 

hat.cn ie«i.s Bii- ^J™'™^ MiWer'in &lct 
n V.'El 5(1.- DM S l- ^.^ 

hneider, BritadlihangsuaOe US, CH-9435 Heerbrujg 


Sdiwsii ur.d SiiddeutschlaD 






Begerow 


S. 79 


B-H-KEIektrani 


S.73 


Egeter 


S.74 


Glitsch 


S.78 


Hahn 


S. 3 


HLS-Sofl 


S.38 


Hueber-Verlag 


S. 2 




S.77 


Omikron 


S.BO 


Rels 


S.78 


Siren 


S.75 




S.73 




S.72 




3. 3 




30 LET t=t+n 

48 NEXT n 

50 LET »=101 

60 LET i-l+Z 

70 LET d-c+2 

86 IF c=t THEM GO TO 160 

30 IF c>t THEN GO TO 130 
100 LET c-c+d 
116 LET d=d*2 
126 GO TO 80 
130 LET t=t+a 
140 LET 3=i+Z 
150 GO TO 6B 

16B PRINT "Ho lows'* f1dr«»e^ " 
170 PRIKT '"Istzte Hausnunmer ■ 



inch MHtdMl, tal ii liri ai vtel Wtthm ISumr, ImmUoi. tdmH. kmhrtiM. wwnini «J J ml liil « *«W 
Uwh irtttai town Inuri wrateitM *1r «1 kMm mm* ihikIm taiWFikm (HHiiimiirSiButarBlWICH 






GBASIC 64 




Das sag! die Presse: 

-GB»iSIC ffwffla sich als die blsher IBalijragaHhlgste Basiajrivell Rung . 
Bnfaohe Handhetnma - Modul rain. Computer an -, das ungewOtirracn 
gula, iWMilich galbe Hi!n.jL«j'+ i.".rt ■■'. .:.:: --n . ^.i-tf. nets Basicoelelile 

(RUN 9AM) 










COUPON ii/e 4 

E::--=-r;r:ider.an:OMIKRON 
Jnterschritt 


ain/Soheckllegtbei 




rniBtita affih nur sctiner water ran ihr Irennan." iCompirta Praxis 

-Angeslchts ttet groBen Zahl von Sparial-GralikerwBitBnjngeii erwartet 

Um bo positive aenasdn he GBASIfl: Bine gro&e Aniahl wSSWW- 
dadiler BefehlB, drei Grafikscnirme, node AusturmingBgeschwinaig- 
keh.-(HCF4AM) 

-Die Betehle und Moglichkeilen. die GBASIC 64 tiler blelel, gflWen mlf 
50 ausaezelcJiiBtdaBicnrnlr tieiitedasArtWlBnohr.es''! S&N [Ml 
uorstellen *snn.. IZum Thema Toolkit m Computer Kariakt B-9/84) 





